home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / util / boot / Bekuna.lha / bekuna1.5 / INSTALL < prev    next >
Text File  |  2002-03-19  |  7KB  |  269 lines
  1. ;* $VER: BEKUNA_install 1.1 (06.03.2002) Kuno Naumann
  2. ;*************************************************
  3. ; Script to install Bekuna1.3
  4.  
  5. (complete 0)
  6.  
  7. ;***** Texte Deutsch *****
  8.  
  9. (set msg_was "Was möchtst Du installieren?\nLies auch alle Hilfetexte!")
  10. (set washilfe "Wähle, was Du installieren möchtest.\nNur das Programm oder die Anleitung, oder beides.\nWenn Bekuna bereits installiert ist, so wird ein Update installiert. Bereits vorhandene Daten werden dabei nicht gelöscht.")
  11.  
  12. (set msg_start "Wohin soll das Startprogramm (Begrüßung) für >BEKUNA.rexx< installiert werden?\nStandard ist das Verzeichnis SYS:WBStartup.")
  13. (set starthilfe "Wähle eine Schublade, in die das Start-Programm kopiert werden soll.\nStandard ist SYS:WBStartup, damit das Begrüßungsprogramm bei jedem Neustart gestartet wird.\nWird eine andere Schublade gewählt, so kann Bekuna nur manuell, oder von der User-Startup aus, gestartet werden.")
  14.  
  15. (set msg_anl "Wohin soll die Anleitung kopiert werden?")
  16. (set dokhilfe "Wähle eine beliebige Schublade, in die die Anleitung kopiert werden soll.")
  17.  
  18. (set msg_hg "Sollen die Vorgabe-Hintergründe für die Programmfenster installiert werden?\nSie werden in die Schublade >Sys:Prefs/Presets/Patterns/Einfarbig/< kopiert.")
  19. (set hghilfe "Wenn Du hier NEIN wählst, so werden alle zusätzlichen Fenster ohne Hintergrundmuster geöffnet. Du hast dann die Möglichkeit, andere Hintergrundmuster im Programmmenü EINSTELLUNGEN auszuwählen.")
  20.  
  21. (set msg_us1 "Damit das Programm bei jedem Neustart gestartet wird, ist folgender Eintrag in die User-Startup notwendig.")
  22. (set msg_us2 "Soll dies eingefügt werden?")
  23. (set ushilfe "Damit das Programm bei jedem Neustart des Rechners automatisch gestartet wird, muss sich das Startprogramm Begrüßung in der Schublade WBStartup befinden, oder dieser Eintrag muss in die User-Startup erfolgen.")
  24.  
  25. (set msg_pstart "Das Programm BEKUNA wird jetzt gestartet. Du kannst nun Deine ersten Einstellungen vornehmen.\nWähle dazu das Menü <Daten eingeben - Geburtstage>.\nGib zuerst Deinen Vornamen und Dein Geburtsdatum ein.\nAlle Fenstergrößen können über das Menü fixiert werden.")
  26.  
  27. (set msg_ende1 "Das Begrüßungsprogramm ist jetzt installiert und wird nach jedem Neustart ausgeführt.")
  28. (set msg_ende2 "Für eine Antwort oder ein Fehlerbericht, schreibe bitte an:\n\nkuno-n@freenet.de")
  29. (set msg_ende3 "Bekuna konnte nicht installiert werden.\nBitte System überprüfen!\n\nBrauchst Du Hilfe?\nSo schreibe an:\n\nkuno-n@freenet.de")
  30.  
  31. ;*****************************************************************
  32. ;***** FRAGEN *****
  33.  
  34. (complete 10)
  35.  
  36. (set var_was
  37.    (askoptions
  38.       (prompt msg_was)
  39.       (help washilfe)
  40.       (choices "Begrüßungsprogramm (Bekuna.rexx)" "Anleitung (Bekuna.guide)")
  41.       (default 3)
  42.    )
  43. )
  44.  
  45. (complete 15)
  46.  
  47. (set sdir "SYS:WBStartup")
  48. (set pdir "REXX:")
  49.  
  50. (complete 16)
  51. (if (= 0 (exists pdir))(
  52.    (message "REXX: existiert nicht!\nBitte Startup-Sequence überprüfen!")
  53.    (exit msg_ende3)
  54. ))
  55. (complete 17)
  56. (if (= 0 (exists "Sys:rexxc/rx"))(
  57.    (message "Der AREXX-Startbefehl RX befindet sich nicht im Verzeichnis Sys:Rexxc !\nBitte System überprüfen!")
  58.    (exit msg_ende3)
  59. ))
  60. (complete 18)
  61. (if (bitand var_was 1)(
  62.    (if (= 0 (exists (tackon sdir "Begrüßung")))
  63.       (set sdir
  64.           (askdir
  65.              (default sdir)
  66.              (help starthilfe)
  67.              (prompt (cat msg_start))
  68.           )
  69.       )
  70.    )
  71.    (set sdir (tackon sdir ""))
  72.    (set @default-dest pdir)
  73. ))
  74.  
  75. (complete 20)
  76.  
  77. (set adir "Work:")
  78.  
  79. (if (bitand var_was 2)(
  80.    (set adir
  81.       (askdir
  82.          (default "Work:")
  83.          (help dokhilfe)
  84.          (prompt (cat msg_anl))
  85.       )
  86.    )
  87.    (set adir (tackon adir ""))
  88.    (set @default-dest adir)
  89. ))
  90.  
  91. (if (= 0 (bitand var_what 3))
  92.    (
  93.       (set @default-dest pdir)
  94.    )
  95. )
  96.  
  97. (complete 25)
  98.  
  99. (if (bitand var_was 1)
  100.    (set var_hg
  101.       (askchoice
  102.          (prompt msg_hg)
  103.          (help hghilfe)
  104.          (choices "NEIN" "JA")
  105.          (default 1)
  106.       )
  107.    )
  108. )
  109.  
  110. ;***** INSTALL BEKUNA *****
  111.  
  112. (complete 30)
  113.  
  114. (if (bitand var_was 1)(
  115.    (if (= 0 (exists (tackon sdir "Begrüßung")))
  116.       (copyfiles
  117.          (source "Begrüßung")
  118.          (dest sdir)
  119.       )
  120.    )
  121.    (makedir "REXX:Daten")
  122. (complete 35)
  123.    (copyfiles
  124.       (source "Begrüßung.info")
  125.       (dest sdir)
  126.    )
  127. (complete 40)
  128.    (copyfiles
  129.       (source "BEKUNA.rexx")
  130.       (dest pdir)
  131.    )
  132. (complete 45)
  133.    (copyfiles
  134.       (source "showtx")
  135.       (dest pdir)
  136.    )
  137. (complete 50)
  138.    (if (= 0 (exists (tackon pdir "errord")))
  139.       (copyfiles
  140.          (source "errord")
  141.          (dest pdir)
  142.       )
  143.    )
  144. (complete 55)
  145.    (if (= 0 (exists (tackon pdir "frage")))
  146.       (copyfiles
  147.          (source "frage")
  148.          (dest pdir)
  149.       )
  150.    )
  151. (complete 60)
  152.    (if (= 0 (exists "REXX:Daten/MondanimZ"))
  153.       (copyfiles
  154.          (source "MondanimZ")
  155.          (dest "REXX:Daten")
  156.       )
  157.    )
  158.    (if (= 0 (exists "REXX:Daten/MondanimA"))
  159.       (copyfiles
  160.          (source "MondanimA")
  161.          (dest "REXX:Daten")
  162.       )
  163.    )
  164. (complete 65)
  165.    (if (= 0 (exists "REXX:Daten/smiley1"))
  166.       (copyfiles
  167.          (source "smiley1")
  168.          (dest "REXX:Daten")
  169.       )
  170.    )
  171. (complete 70)
  172.    (if (= 0 (exists "REXX:Daten/smiley2"))
  173.       (copyfiles
  174.          (source "smiley2")
  175.          (dest "REXX:Daten")
  176.       )
  177.    )
  178. ))
  179.  
  180. ;***** INSTALL ANLEITUNG *****
  181.  
  182. (complete 80)
  183.  
  184. (if (bitand var_was 2)(
  185.    (copyfiles
  186.       (source "Bekuna.guide")
  187.       (choices "Bekuna.guide")
  188.       (dest adir)
  189.    )
  190.    (if (= 0 (exists (tackon adir "Bekuna.guide.info")))
  191.       (copyfiles
  192.          (source "Bekuna.guide.info")
  193.          (dest adir)
  194.       )
  195.    )
  196. ))
  197.  
  198. ;***** INSTALL HINTERGRUND *****
  199.  
  200. (complete 85)
  201.  
  202. (if (bitand var_was 1)(
  203.    (if (= 1 var_hg)(
  204.       (if (= 0 (exists "SYS:Prefs/Presets/Patterns"))
  205.          (makedir "SYS:Prefs/Presets/Patterns")
  206.       )
  207.       (copyfiles
  208.          (source "Einfarbig")
  209.          (dest "SYS:Prefs/Presets/Patterns/Einfarbig")
  210.          (all)
  211.       )
  212.    ))
  213.  
  214. ;***** INSTALL LIBS *****
  215.  
  216. (complete 86)
  217.    (copylib (prompt #prompt_copy "\n\nRexxTricks.library" )
  218.          (help @copylib-help)
  219.          (confirm "average")
  220.          (source "lib/rexxtricks.library")
  221.          (dest "Libs:")
  222.    )
  223.  
  224. (complete 87)
  225.    (copylib (prompt #prompt_copy "\n\nRexxMathLib.library" )
  226.          (help @copylib-help)
  227.          (confirm "average")
  228.          (source "lib/rexxmathlib.library")
  229.          (dest "Libs:")
  230.          (optional "oknodelete" "force")
  231.    )
  232. ))
  233.  
  234. ;***** USER-STARTUP *****
  235.  
  236. (complete 90)
  237.  
  238. (if (bitand var_was 1)(
  239.    (if (= 0 (patmatch "WBStartup" (fileonly (pathonly sdir))))(
  240.       (set uscommandline (cat "Run > NIL: rx bekuna"))
  241.       (startup "BEKUNA"
  242.          (prompt msg_us1 "\n\n" uscommandline "\n\n" msg_us2)
  243.          (help ushilfe)
  244.          (command uscommandline)
  245.          (set @default-dest "Rexx:")
  246.       )
  247.    ))
  248. ))
  249.  
  250. ;***** ANLEITUNG LESEN *****
  251.  
  252. (complete 95)
  253.  
  254. (if (= 1 (exists "SYS:Utilities/Multiview"))
  255.    (run "SYS:Utilities/Multiview Bekuna.guide" (safe))
  256. )
  257.  
  258. ;***** FERTIG *****
  259.  
  260. (complete 99)
  261.  
  262. (if (bitand var_was 1)(
  263.    (message msg_pstart)
  264.    (run "SYS:rexxc/rx bekuna" (safe))
  265. ))
  266.  
  267. (complete 100)
  268. (exit (cat msg_ende1 "\n\n" msg_ende2))
  269.